home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / BSCRIPTS.CST / 00002_Script_info menu < prev    next >
Text File  |  1999-04-25  |  2KB  |  78 lines
  1. -- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
  2. -- Developed for Bombardier, Inc.
  3. --
  4. -- All programming developed by: 
  5. -- Robert Fabricant, Valerie Valoueva, Ossi Shaked, 
  6. -- Henry Sauvageot, Chris Howell & Chris Girand
  7. --
  8. -- Use of this code by parties other than @radical.media, inc. or their
  9. --agents 
  10. -- without the express written consent of @radical.media, inc. AND Concurrent 
  11. -- New Media Group, L.L.C. is strictly prohibited.
  12. ------------------------------------------------------
  13. -------*This script is not used in this version of the movie*----------
  14.  
  15. property Rimage,Dimage,image,sprt
  16.  
  17. on getPropertyDescriptionList
  18.   set description=[:]
  19.   addProp description,#Rimage,[#default:"",#format:#integer, ¼
  20.   #comment:"The cast num for rollover image"]
  21.   
  22.   addProp description,#Dimage,[#default:"",#format:#integer, ¼
  23.   #comment:"The cast num for the image when the mouse is down"]
  24.   
  25.   addProp description,#image,[#default:"",#format:#integer, ¼
  26.   #comment:"The cast num for the image when not rolled over"]
  27.   
  28.   addProp description,#sprt,[#default:"",#format:#integer, ¼
  29.   #comment:"The sprite number (has to be a puppetsprite)"]
  30.   
  31.   return description
  32. end
  33.  
  34. on getbehaviorDescription
  35.   return "changes the image on rollover"
  36. end
  37.  
  38.  
  39. on mouseEnter me
  40.   global gInfoSprt
  41.   put Rimage
  42.   if gInfoSprt <> the spritenum of me then
  43.     set the castnum of sprite the spritenum of me to the castnum of sprite the spritenum of me +1
  44.     -- set the ink of sprite sprt to 0
  45.     updatestage 
  46.   end if
  47. end
  48.  
  49. on mouseleave me
  50.   global gInfoSprt
  51.   if gInfoSprt <> the spritenum of me then
  52.     set the castnum of sprite the spritenum of me to the castnum of sprite the spritenum of me -1 
  53.     --set the ink of sprite sprt to 1
  54.     updatestage
  55.   end if
  56. end
  57.  
  58. on mouseup me
  59.   global gInfoSprt,gIImage
  60.   sound stop(1)
  61.   sound stop(2)
  62.   updatestage
  63.   sound 3,"mousedn"
  64.   if gInfoSprt <> the spritenum of me and gInfoSprt <>"" then
  65.     set the castnum of sprite gInfoSprt to gIImage 
  66.   end if
  67.   
  68.   if gInfoSprt <> the spritenum of me  then
  69.     set gInfoSprt = the spritenum of me
  70.     set gIImage = the castnum of sprite the spritenum of me -1
  71.     set the castnum of sprite the spritenum of me to the castnum of sprite the spritenum of me +1
  72.   end if
  73.   
  74.   pass 
  75. end
  76.  
  77.  
  78.